home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Bombardier_PC / BSCRIPTS.CST / 00071_Script_qtvr-OnPlane < prev    next >
Text File  |  1999-04-25  |  2KB  |  81 lines
  1. -- ⌐ 1998 @radical.media, inc. & Concurrent New Media Group, L.L.C.
  2. -- Developed for Bombardier, Inc.
  3. --
  4. -- All programming developed by: 
  5. -- Robert Fabricant, Valerie Valoueva, Ossi Shaked, 
  6. -- Henry Sauvageot, Chris Howell & Chris Girand
  7. --
  8. -- Use of this code by parties other than @radical.media, inc. or their
  9. --agents 
  10. -- without the express written consent of @radical.media, inc. AND Concurrent 
  11. -- New Media Group, L.L.C. is strictly prohibited.
  12. ------------------------------------------------------
  13. -------*This script is not used in this version of the movie*----------
  14.  
  15. property mySprite, neutral, roller
  16.  
  17. on new me
  18.   set mySprite = the spriteNum of me
  19.   set roller = the castNum of sprite mySprite
  20.   set neutral = roller + 1
  21.   return me
  22. end
  23.  
  24.  
  25. on mouseEnter me
  26.   global gPlane,gPImage 
  27.   set the castnum of sprite mySprite to  roller
  28.   updatestage 
  29. end
  30.  
  31.  
  32.  
  33. on mouseleave me
  34.   global gPlane,gPImage
  35.   set the castNum of sprite mySprite = neutral
  36.   set the ink of sprite mySprite to 39
  37.   
  38.   set lastMenuItemSprNum = getSpriteNumFromMemberName ("anchor")+1
  39.   set maxLocV = the bottom of sprite lastMenuItemSprNum
  40.   
  41.   if (the mouseh<=598 or the mouseh >= 762 or the mousev <=84 ¼
  42. or the mousev >= maxLocV) then
  43.     set the castNum of sprite mySprite = roller
  44.     set the ink of sprite mySprite = 0
  45.   end if
  46.   
  47.   updatestage
  48. end
  49.  
  50. on mouseup me
  51.   global gPlane,gPImage
  52.   --back to QTVR button
  53.   set the visible of sprite 22 to false
  54.   puppetSprite 22, false
  55.   updatestage
  56.   if gPlane <> the spritenum of me then
  57.     set gPlane = the spritenum of me
  58.     set gPImage = the castnum of sprite the spritenum of me -1
  59.   end if
  60.   set the castnum of sprite mySprite = neutral
  61.   set the ink of sprite mySprite = 0
  62.   
  63.   sound stop(1)
  64.   sound stop(2)
  65.   
  66.   set startSprNum = getSpriteNumFromMemberName ("anchor")+1
  67.   set range = getNumOfSprInCluster("anchor")-1
  68.   set mySprNum = the spritenum of me
  69.   
  70.   repeat with spriteNum = startSprNum to startSprNum+range
  71.     if spriteNum = mySprNum then
  72.       set soundNum = range-(spriteNum-startSprNum)+1
  73.       puppetSound 3,"tunfork"&soundNum
  74.       pass
  75.       exit
  76.     end if
  77.   end repeat
  78.   
  79. end
  80.  
  81.